home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Guide.dxr / 00092.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  1.1 KB  |  27 lines
  1. on exitFrame
  2.   global gqtvrinstance, gslidersprite, guidenumber, returnlist, ossprite, gcounter, sectionmarker
  3.   set the visible of sprite (12 + guidenumber) to 0
  4.   puppetSprite(gslidersprite, 1)
  5.   setreturnframe()
  6.   setos()
  7.   if getProp(returnlist, #flag) = 1 then
  8.     set gcounter to getProp(returnlist, #gcounter)
  9.     set infonum to the number of member (guidenumber & "-" & gcounter)
  10.     set soundtime to getAt(getAt(glist, gcounter), 1)
  11.     set the movieTime of sprite ossprite to soundtime
  12.     set panAngle to string(getAt(getAt(glist, gcounter), 2))
  13.     set tileangle to string(getAt(getAt(glist, gcounter), 3))
  14.     set FOV to string(getAt(getAt(glist, gcounter), 4))
  15.     swingpanomovie(panAngle, tileangle, FOV, "4", "1")
  16.     repeat with i = gcounter down to 1
  17.       set newnum to the number of member ("Sign" && guidenumber & "-" & i)
  18.       if newnum > 0 then
  19.         set the memberNum of sprite sectionmarker to newnum
  20.         exit repeat
  21.       end if
  22.     end repeat
  23.     put "[#GuideNumber:" && guidenumber & ", #gCounter:" && gcounter & ", #Flag: 0]" into field "Guide Location"
  24.     set returnlist to value(field "Guide Location")
  25.   end if
  26. end
  27.